home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / keyboard.swg / 0089_Keyboard Stuffer.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1995-03-26  |  529 b   |  35 lines
  1.  
  2. Program StuffKeyboardBuffer;
  3.  
  4. Uses Crt,Dos;
  5.  
  6. Var
  7.        Name : String;
  8.  
  9. Procedure Stuffit(DChar:Char);
  10. Begin
  11.      asm
  12.         mov ah,05h
  13.         mov ch,1
  14.         mov cl, DChar
  15.         int 16h
  16.      end;
  17. end;
  18.  
  19. Procedure StuffKeyboard(D : String);
  20. Var
  21.        l : Integer;
  22.  
  23. Begin
  24.    for l:=1 to length(d) do
  25.        StuffIt(D[l]);
  26. End;
  27.  
  28. Begin
  29.        Clrscr;
  30.        Write('Enter your name : ');
  31.        StuffKeyboard('Robbie Flynn');
  32.        Readln(Name);
  33.        Writeln('Your name is : ',Name);
  34. End.
  35.